object fmmain: Tfmmain
  Left = 0
  Top = 0
  ActiveControl = dbgPat
  Caption = #1040#1082#1091#1096#1077#1088#1089#1082#1080#1077' '#1082#1083#1080#1085#1080#1082#1080' '#1057#1080#1073#1043#1052#1059
  ClientHeight = 565
  ClientWidth = 782
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = mmMain
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  PixelsPerInch = 96
  TextHeight = 13
  object laf: TLabel
    Left = 8
    Top = 8
    Width = 98
    Height = 21
    AutoSize = False
    Caption = #1060#1072#1084#1080#1083#1080#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object laI: TLabel
    Left = 8
    Top = 35
    Width = 98
    Height = 21
    AutoSize = False
    Caption = #1048#1084#1103
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object laO: TLabel
    Left = 8
    Top = 62
    Width = 98
    Height = 21
    AutoSize = False
    Caption = #1054#1090#1095#1077#1089#1090#1074#1086
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
  end
  object dbgPat: TDBGrid
    Left = 0
    Top = 104
    Width = 782
    Height = 461
    Align = alBottom
    DataSource = dmMain.dsPat
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit, dgTitleClick, dgTitleHotTrack]
    TabOrder = 0
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
    OnDblClick = actnGoToPatExecute
    Columns = <
      item
        Expanded = False
        FieldName = 'PAT_F'
        Width = 165
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAT_I'
        Width = 187
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAT_O'
        Width = 187
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'PAT_BD'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'POST_D'
        Visible = True
      end
      item
        Expanded = False
        FieldName = 'VYB_D'
        Visible = True
      end>
  end
  object edF: TEdit
    Left = 112
    Top = 8
    Width = 250
    Height = 21
    TabOrder = 1
    OnChange = actnSearchExecute
  end
  object edI: TEdit
    Left = 112
    Top = 35
    Width = 250
    Height = 21
    TabOrder = 2
    OnChange = actnSearchExecute
  end
  object edO: TEdit
    Left = 112
    Top = 62
    Width = 250
    Height = 21
    TabOrder = 3
    OnChange = actnSearchExecute
  end
  object btnSearch: TBitBtn
    Left = 641
    Top = 8
    Width = 133
    Height = 82
    Action = actnSearch
    Caption = #1055#1086#1080#1089#1082
    TabOrder = 4
  end
  object Button1: TButton
    Left = 383
    Top = 8
    Width = 123
    Height = 25
    Caption = #1044#1086#1073#1072#1074#1080#1090#1100' '#1087#1072#1094#1080#1077#1085#1090#1072
    TabOrder = 5
    OnClick = New_patientClick
  end
  object Button2: TButton
    Left = 512
    Top = 8
    Width = 123
    Height = 25
    Caption = #1059#1076#1072#1083#1080#1090#1100' '#1087#1072#1094#1080#1077#1085#1090#1072
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 383
    Top = 39
    Width = 252
    Height = 25
    Caption = #1055#1077#1095#1072#1090#1100' '#1074#1099#1073#1088#1072#1085#1085#1086#1081' '#1080#1089#1090#1086#1088#1080#1080' '#1088#1086#1076#1086#1074
    TabOrder = 7
    OnClick = Print_IBClick
  end
  object mmMain: TMainMenu
    Left = 32
    Top = 488
    object zFile: TMenuItem
      Caption = #1060#1072#1081#1083
      object nZav: TMenuItem
        Caption = #1047#1072#1074'.'#1086#1090#1076#1077#1083#1077#1085#1080#1077#1084
        OnClick = nZavClick
      end
    end
  end
  object alMain: TActionList
    Left = 72
    Top = 488
    object actnSearch: TAction
      Caption = #1055#1086#1080#1089#1082
      OnExecute = actnSearchExecute
    end
    object actnGoToPat: TAction
      Caption = #1057#1074#1077#1076#1077#1085#1080#1103' '#1086' '#1087#1072#1094#1080#1077#1085#1090#1077
      OnExecute = actnGoToPatExecute
    end
    object Action1: TAction
      Caption = 'Action1'
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 112
    Top = 488
    object New_patient: TMenuItem
      Caption = #1053#1086#1074#1099#1081' '#1087#1072#1094#1080#1077#1085#1090
      OnClick = New_patientClick
    end
    object Print_IB: TMenuItem
      Caption = #1055#1077#1095#1072#1090#1072#1090#1100' '#1048#1041
      OnClick = Print_IBClick
    end
    object N3: TMenuItem
      Caption = '-'
    end
    object close_IB: TMenuItem
      Caption = #1042#1099#1093#1086#1076
      OnClick = close_IBClick
    end
  end
end
